www.gusucode.com > 地方成人教育中心整站源代码 1 > 地方成人教育中心整站源代码 1.0/manage/Function/Function_Column.asp
<% action=Request.QueryString ("Action") Select Case Lcase(action) Case "delall" Call dell_colume() Case "save" Call save_colume() Case "update" Call update_colume() End Select Sub dell_colume ID=trim(request("chk")) If ID="" Then response.write"<script language=javascript>alert('没有选择数据');history.go(-1);</script>":response.End sql="delete from Idea_Navigation where ID in("&ID&")" Call idea.exec("",-1) set rs = server.createobject("adodb.recordset") conn.execute(sql) set rs=nothing response.write "<script language=javascript>alert('数据删除成功');location.href='Config_Column.asp';</script>" End Sub Sub save_colume NavName=trim(request("NavName")) NavUrl=trim(request("NavUrl")) OpenType=trim(request("OpenType")) Sequence=trim(request("Sequence")) if(trim(request("IsShow"))<>"") then IsShow=1 else IsShow=0 end if sql="insert into Idea_Navigation(NavName,NavUrl,OpenType,Sequence,IsShow) values('"&NavName&"','"&NavUrl&"','"&OpenType&"',"&Sequence&",'"&IsShow&"')" Call idea.exec("",-1) set rs = server.createobject("adodb.recordset") conn.execute(sql) set rs=nothing response.write "<script language=javascript>alert('数据添加成功');location.href='Config_Column.asp';</script>" End Sub Sub update_colume ID=trim(request("ID")) if ID<>"" and IsNumeric(ID) then NavName=trim(request("NavName1")) NavUrl=trim(request("NavUrl1")) OpenType=trim(request("OpenType1")) Sequence=trim(request("Sequence1")) if(trim(request("IsShow1"))<>"") then IsShow=1 else IsShow=0 end if sql="update Idea_Navigation set NavName='"&NavName&"',NavUrl='"&NavUrl&"',OpenType='"&OpenType&"',Sequence="&Sequence&",IsShow='"&IsShow&"' where ID="&ID&"" Call idea.exec("",-1) set rs = server.createobject("adodb.recordset") conn.execute(sql) set rs=nothing response.write "<script language=javascript>alert('数据更新成功');location.href='Config_Column.asp';</script>" end if End Sub Function Inf_Count() sql="select * from Idea_Navigation" set rs=idea.exec(sql,1) Inf_Count=rs.recordcount rs.close set rs=nothing End Function Function Edit_Content() ID=trim(request("ID")) if ID<>"" and IsNumeric(ID) then sql="select * from Idea_Navigation where ID="&ID set rs=idea.exec(sql,1) do while not rs.eof response.write "<form action='?Action=update&ID="&ID&"' method='post'>" response.write "<table class='cTable table tCenter'>" response.write "<tr class='cTitle toolbarBg'>" response.write "<td colspan='2' align='left'><span class='light_bOrange'> 编辑栏目</span></td>" response.write "</tr>" response.write "<tr>" response.write "<td width='15%' class='tRight'>栏目名称:</td>" response.write "<td width='85%' align='left'><input name='NavName1' type='text' size='40' value='"&rs("NavName")&"'>" response.write "<input name='IsShow1' type='checkbox' value='checkbox' checked='checked'>发布</td>" response.write "</tr>" response.write "<tr>" response.write "<td class='tRight'>链接地址:</td>" response.write "<td width='85%' align='left'><input name='NavUrl1' type='text' size='40' value='"&rs("NavUrl")&"'></td>" response.write "</tr>" response.write "<tr>" response.write "<td class='tRight'>打开方式:</td>" response.write "<td width='85%' align='left'><select name='OpenType1'>" response.write "<option value='_self' selected>本窗口</option>" response.write "<option value='_blank'>新窗口</option>" response.write "</select></td>" response.write "</tr><tr>" response.write "<td class='tRight'>显示顺序:</td>" response.write "<td width='85%' align='left'><input name='Sequence1' type='text' size='40' value='"&rs("Sequence")&"'></td></tr>" rs.movenext loop rs.close set rs=nothing end if response.write "</table>" response.write "<div id='cEndToolbar' class='toolbarBg'>" response.write "<div class='caButCase' style='text-align:left;padding-left:16%;'>" response.write "<input type='submit' id='Btn_Edit' name='Btn_Edit' value='确定更新' class='button'> " response.Write "<input type='reset' name='Btn_EditReset' value='清空重填' class='button'>" response.write "</div>" response.write "</div>" response.write "</form>" End Function Function Add_Content() response.write "<form action='?Action=save' method='post'>" response.write "<table class='cTable table tCenter'>" response.write "<tr class='cTitle toolbarBg'>" response.write "<td colspan='2' align='left'><span class='light_bOrange'> 添加栏目</span></td>" response.write "</tr><tr>" response.write "<td width='15%' class='tRight'>栏目名称:</td>" response.write "<td width='85%' align='left'><input name='NavName' type='text' size='40'>" response.write "<input name='IsShow' type='checkbox' value='checkbox' checked='checked'>发布</td>" response.write "</tr><tr>" response.write "<td class='tRight'>链接地址:</td>" response.write "<td width='85%' align='left'><input name='NavUrl' type='text' size='40'></td>" response.write "</tr><tr>" response.write "<td class='tRight'>打开方式:</td>" response.write "<td width='85%' align='left'><select name='OpenType'>" response.write "<option value='_self' selected>本窗口</option>" response.write "<option value='_blank'>新窗口</option>" response.write "</select></td>" response.write "</tr><tr>" response.write "<td class='tRight'>显示顺序:</td>" response.write "<td width='85%' align='left'><input name='Sequence' type='text' size='40'></td>" response.write "</tr></table>" response.write "<div id='cEndToolbar' class='toolbarBg'>" response.write "<div class='caButCase' style='text-align:left;padding-left:16%;'>" response.write "<input type='submit' id='Btn_Add' class='button' name='Btn_Add' value='确定添加'> " response.Write "<input type='reset' name='Btn_AddReset' value='清空重填' class='button'>" response.write "</div>" response.write "</div>" response.write "</form>" End Function Function Main_Content() response.write "<div id='frame_Toolbar' class='toolbarBg'> " response.write "<a href='javascript:self.history.back();' class='icoBtn_ct'><span class='btnIco btnBack'></span><span class='btnTxt'>返回</span></a>" response.write "<a href='javascript:self.location.reload();' class='icoBtn_ct'><span class='btnIco btnReload'></span><span class='btnTxt'>刷新</span></a> <span class='split ftSplit' ></span>" response.write "<div id='guide'>点击<span class='light_orange'> 栏目名称 </span>进行编辑</div>" response.write "<div class='pageInfo right light_gray'>[当前共有<span id='Label_total_top' class='light_bOrange'>"&Inf_Count()&"</span>条记录]</div>" response.write "</div>" response.write "<form method='POST' id=form2 name='form2'>" response.write "<div id='content'>" response.write "<table class='cTable table tCenter'>" response.write "<tr class='cTitle toolbarBg' id='Title'>" response.write "<td width='5%'><div>NO.</div></td>" response.write "<td width='13%'><span class='split ctSplit'></span><div>栏目名称</div></td>" response.write "<td width='25%'><span class='split ctSplit'></span><div>链接地址</div></td>" response.write "<td width='10%'><span class='split ctSplit'></span><div>打开方式</div></td>" response.write "<td width='10%'><span class='split ctSplit'></span><div>显示顺序</div></td>" response.write "<td width='17%'><span class='split ctSplit'></span><div>发布日期</div></td>" response.write "<td width='10%'><span class='split ctSplit'></span><div>是否发布</div></td>" response.write "<td width='10%'><span class='split ctSplit'></span><div>" response.write "<input type='button' class='button' style='width:31px;height:19px;padding-top:2px;' name='Btn_Select' value='全选' onClick='selectall()'> " response.write "<input type='button' class='button' style='width:31px;height:19px;padding-top:2px;' name='Btn_Cancel' value='反选' onClick='cancelall()'>" response.write "</div>" response.write "</td>" response.write "</tr>" response.write "</table>" response.write "<table class='cTable table tCenter' cellspacing='0' border='0' style='border-collapse:collapse;'>" sql="select * from Idea_Navigation order by Sequence" set rs=idea.exec(sql,1) if not rs.eof then rs.pagesize=14 curpage=Request.QueryString("curpage") if curpage="" then curpage=1 rs.absolutepage=curpage for i=1 to rs.pagesize if rs.eof then exit for end if response.Write"<tr>" response.Write"<td align='center' style='width:5%;'><span>"&rs("ID")&"</span></td>" response.Write"<td style='width:13%;'><a href='?Action=Edit&ID="&rs("ID")&"''>"&rs("NavName")&"</a></td>" response.Write"<td align='center' style='width:25%;white-space:nowrap;'><span>"&rs("NavUrl")&"</span></td>" if rs("OpenType")="_blank" then response.Write"<td style='width:10%;'>新窗口</td>" else response.Write"<td style='width:10%;'>本窗口</td>" end if response.Write"<td style='width:10%;'>"&rs("Sequence")&"</td>" response.Write"<td style='width:17%;'>"&rs("AddDate")&"</td>" if rs("IsShow")=true then response.Write"<td style='width:10%;' align='center'><div style='width:15px;height:10px;background-image: url(images/IcoBtn.gif); background-repeat: no-repeat; border: 0;background-position: -470px -3px;'></div></td>" else response.Write"<td style='width:10%;' align='center'><div style='width:15px;height:10px;background-image: url(images/IcoBtn.gif); background-repeat: no-repeat; border: 0;background-position: -485px -3px;'></div></td>" end if response.Write"<td align='center' style='width:10%;'><div style='float:left;width:50px;height:17px;background-image: url(images/IcoBtn.gif); background-repeat: no-repeat; border: 0;background-position: -222px 0px;'><a href='?Action=Edit&ID="&rs("ID")&"''><img width='50' height='17' style='border:0;' src='images/Empty.gif'></a></div>" response.Write"<input type='checkbox' name='chk' value='"&rs("ID")&"' />" response.Write"</td>" response.Write"</tr>" rs.movenext next else response.Write"<tr><td colspan='7' align='center' style='width:100%;'>还没有添加数据!</td><td></td></tr>" end if response.Write "<tr>" response.Write "<td colspan='7' width='90%'></td>" response.Write "<td align='center'>" response.Write "<input type='submit' class='button' style='width:80px;height:19px;padding-top:2px;' id='Btn_DellAll' name='Btn_DellAll' value='删除所选' onClick=""document.form2.action='?Action=delall';return confirm('确定要删除吗?');"">" response.Write "</td>" response.Write "</tr>" response.Write "</table>" response.Write "<div id='cEndToolbar' class='toolbarBg'>" response.Write "<div class='pageBtnDo'>" response.Write "<a href='?action=Add'>添加栏目</a>" response.Write "</div>" response.Write "<div class='pageList'>" if curpage=1 then Response.Write "首页 | " else Response.Write "<a href='?curpage=1'>首页</a> | " end if if curpage=1 then Response.Write "上一页 | " else Response.Write "<a href='?curpage="&curpage-1&"'>上一页</a> | " end if if rs.pagecount<curpage+1 then Response.Write "下一页 | " else Response.Write "<a href='?curpage="&curpage+1&"'>下一页</a> | " end if if rs.pagecount<curpage+1 then Response.Write "尾页 " else Response.Write "<a href='?curpage="&rs.pagecount&"'>尾页</a> " end if Response.Write "当前第"&curpage&"页 " Response.Write "共"&rs.pagecount&"页 " response.Write "</div>" rs.close() set rs=nothing response.Write "</div>" response.Write "</form>" End Function %>